games: Functions for word games.

boggle=function(inputstring){ # The inputstring is a single string of 9 characters
inputstring=matrix(strsplit(inputstring,split="")[[1]],byrow=T,ncol=3)
solutions.matrix=as.matrix(read.table("/Users/ling-jwe/Documents/R/BOGGLE/boggleorders09.txt",header=F,sep="\t")) # 1340 possible solutions
patterns.matrix=as.matrix(read.table("/Users/ling-jwe/Documents/R/BOGGLE/myresults.txt",header=F))
solutions.text=apply(solutions.matrix,1,function(x){paste(inputstring[x],collapse="")})
exclude.list=lapply(patterns.matrix,function(x){which(regexpr(x,solutions.text)>0)})
return(sort(solutions.text[-unique(do.call(c,exclude.list))]))
}

# testwoorden (9):
bogglewords=c("remwaitek","geaornsug","tegsmeaet","wundeogeh","etsirellf","vedeonlte","masrnietn","ovlhaascl",
"nwttuipts","lufkluewa","udaazeepm","pnuioavet","rilaijnom","nanetlsop","renededie","serctehva",
"daarirteu", "tennveeme", "gniplsoos", "ealiuvtae", "idneoenvb", "akadgaenz", "eganalrvo","amivptjepisatodn",
"aaaartjrdstrgaev","tnestaxieimpkrol","ninirgwnsooresev","fnnasipnorosdotn","eiuounbwcwjptero","licacefteeeidrtn",
"etipaeregnsoette","seiedvptoeanriak")